﻿Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports DotNetDal.SQLPersistence

' Para permitir que se llame a este servicio Web desde un script, usando ASP.NET AJAX, quite la marca de comentario de la línea siguiente.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class WebService1
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function ExecuteXML(ByVal SP As String, ByVal Parametros() As String, ByVal commit As Boolean, ByVal returnValue As Boolean) As String

        Dim exec As New DotNetDal.SQLPersistence(commit, "cnn", Provider.SQLCLIENT)
        Dim rp As New DotNetResponse.SQLPersistence
        rp.StoredProcedure = SP
        If Not Parametros Is Nothing Then
            rp.Parametro = Parametros
        End If

        If returnValue Then
            exec.ExecuteDataTable(rp)
            If commit Then
                exec.Commit()
            End If

            If rp.Errores Then
                Return "error : " & rp.MensajeError
            End If
            If rp.TieneDatos Then
                Return rp.DtTable.DataSet.GetXml
            Else
                Return "Sin información"
            End If

        Else
            exec.ExecuteNonQuery(rp)
            If rp.Errores Then
                Return "error : " & rp.MensajeError
            Else
                Return "registrado"
            End If
        End If




    End Function

End Class